home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / wb / DirScanner.lha / DirScanner / Rexx / Jump2.dsrx < prev    next >
Encoding:
Text File  |  2000-03-31  |  936 b   |  43 lines
  1. /*
  2.    $VER: Jump2.dsrx 1.0 (8.3.00) Copyright (c) Nils Görs.
  3.  
  4.   This script needs rexxreqtools- and rexxtricks.library.
  5. */
  6.  
  7. options results
  8.  
  9. PARSE ARG DSPort
  10. IF DSPort = "" THEN DSPort = DIRSCANNER.1
  11. address value DSPort
  12.  
  13.    IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN
  14.       IF ~ADDLIB('rexxreqtools.library',9,-30,0) THEN
  15.          quit('Cannot open rexxreqtools.library!',10)
  16.    IF ~SHOW('LIBRARIES','rexxtricks.library') THEN
  17.       IF ~ADDLIB('rexxtricks.library',9,-30,0) THEN
  18.          quit('Cannot open rexxtricks.library!',10)
  19.  
  20. SET LOCKGUI 1
  21. Pattern = rtgetstring(,"Select Pattern",DSport,"_Ok|_Cancel")
  22. IF pattern = "" THEN DO
  23.     SET LOCKGUI 0
  24.     EXIT
  25. END
  26.  
  27. GET MATCH_CURS
  28. IF result = -1 then curpos = 0
  29.         else curpos = result
  30. GET MATCH_AMM
  31. amount = result
  32.  
  33. DO i = curpos + 1 TO amount-1
  34.     GET MATCH_FILE i
  35.     call RXTR_MATCHPATTERN(result,pattern,NOCASE)
  36.     IF result = 1 THEN DO
  37.         SET MATCH_CURS i
  38.         LEAVE i
  39.     END
  40. END
  41.  
  42. SET LOCKGUI 0
  43.